home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 1 / CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso / Aminet / biz / dbase / dfa_225.lha / DFA-22 / Install-DFA / Install-DFA < prev   
Text File  |  1994-10-27  |  62KB  |  2,306 lines
  1. ; $VER: DFA 2.2 (09.09.94)
  2. ; Script to install DFA V 2.2
  3.  
  4. ;========================================================
  5. ; English strings
  6.  
  7. (set default_lang 256)
  8.  
  9.     ; Globals...
  10.  
  11. (set #msg-doserror-msg    "Dos Error %ld detected")
  12.  
  13. (set #msg-imgdrawers-prompt    "Copying Image drawer...")
  14. (set #msg-iicon                "Installing Icon...")
  15.  
  16.     ; Specials...
  17.  
  18. (set #msg-transcript-msg "Installing DFA - THE address utility...")
  19.  
  20. (set #msg-olddfa-prompt
  21.     (cat    "There is an old version of DFA on "
  22.             "your harddisk!\n\n"
  23.             "Do you want to uninstall it?\n"
  24.     )
  25. )
  26.  
  27. (set #msg-olddfa-help
  28.     (cat    "If you select 'YES', the old DFA "
  29.             "and all related files, i.e. locale "
  30.             "catalogs, preferences etc. are deleted. "
  31.             "The address files are not touched, "
  32.             "so you won't loose any addresses! "
  33.     )
  34. )
  35.  
  36. (set #msg-udfaexe-choice    "DFA executables" )
  37. (set #msg-udfadoc-choice    "DFA documentation")
  38. (set #msg-udfarexx-choice    "DFA Arexx scripts")
  39. (set #msg-udfareadme-choice    "DFA readme files")
  40. (set #msg-udfaodu-choice    "OwnDevUnit library")
  41. (set #msg-udirtree-choice    "DFA directory tree")
  42.  
  43. (set #msg-uninstall-prompt    "Please select the parts of DFA to uninstall!")
  44. (set #msg-uninstall-help
  45.     (cat    "You may select none, some or all of the "
  46.             "displayed items. The installer will try "
  47.             "to uninstall the different parts of DFA.\n"
  48.             "Please notice that it is not possible to "
  49.             "uninstall the 'Addressfiles' drawer, as "
  50.             "this would be too 'dangerous'.\n"
  51.             "For this reason the DFA main directory "
  52.             "keeps existent as well as the 'DFA:' "
  53.             "assign, performed in the user-startup.\n\n"
  54.             "Deleting the DFA directory tree means that "
  55.             "all existing drawers within the 'DFA:' "
  56.             "directory are deleted with the exeption of "
  57.             "the 'Addressfiles' drawer (see above).\n"
  58.             "Furthermore, only EMPTY drawers are deleted, "
  59.             "i.e. the directory tree is only uninstalled, "
  60.             "if you uninstall the drawers' contents as "
  61.             "well.\n\n"
  62.             "The catalog files are uninstalled in every "
  63.             "case.\n"
  64.     )
  65. )
  66.  
  67. (set #msg-udfaexe-msg        "The DFA executables are to be uninstalled.")
  68. (set #msg-udfadoc-msg        "The DFA documentation is to be uninstalled.")
  69. (set #msg-udfarexx-msg        "The DFA Arexx scripts are to be uninstalled.")
  70. (set #msg-udfareadme-msg    "The DFA readme files are to be uninstalled.")
  71. (set #msg-udfaodu-msg        "The 'OwnDevUnit' library is to be uninstalled.")
  72. (set #msg-udirtree-msg        "The DFA directory tree is to be uninstalled.")
  73.  
  74. (set #msg-udfa1xexe-working    "Deleting DFA V1.x executable...")
  75. (set #msg-udfa20lib-working    "Deleting dfa 2.0 library...")
  76. (set #msg-udfa20prf-working    "Deleting DFA 2.0 preferences program...")
  77. (set #msg-udfawarn-msg
  78.     (cat    "If you've already installed DFA V2.x please make sure "
  79.             "that you don't mix up version 2.2 and previous version's "
  80.             "executables as using a mixture of different versions may "
  81.             "cause the system to crash"
  82.     )
  83. )
  84.  
  85. (set #msg-udfa1xcat-working    "Deleting catalog files of DFA V1.x...")
  86. (set #msg-udfa20cat-working    "Deleting catalog files of DFA V2.x...")
  87.  
  88.  
  89. (set #msg-uprefsfile-prompt
  90.     (cat    "Do you want to delete your old "
  91.             "preferences file?\n"
  92.     )
  93. )
  94.  
  95. (set #msg-uprefsfile-help
  96.     (cat    "If you select 'YES', the old DFA "
  97.             "preferences file is deleted, i.e. "
  98.             "you have to rearrange all windows "
  99.             "and set all preferences."
  100.             "Notice that old preferences files "
  101.             "CAN be read by newer DFA versions. "
  102.     )
  103. )
  104.  
  105. (set #msg-uprefsfile-working    "Deleting preferences file of DFA...")
  106.  
  107. (set #msg-nodfa-msg
  108.     (cat    "No old version of DFA found!\n"
  109.             "You either don't have an old version installed, "
  110.             "or it is on a place on your harddisk where it "
  111.             "wasn't found.\n\nIf you have installed an old "
  112.             "version of DFA anywhere on your system, please "
  113.             "delete it manually or make sure that both "
  114.             "versions don't run at the same time, as they "
  115.             "are not compatible in some ways."
  116.     )
  117. )
  118.  
  119. (set #msg-dfashare-msg
  120.     (cat    "*** DFA is SHAREWARE ***\n\n"
  121.             "If you use it regularly, please remember "
  122.             "that you have to register!\n\n"
  123.             "Please notice that the amount of time the "
  124.             "author is able to invest into DFA depends "
  125.             "directly on the number of people who register.\n"
  126.             "Details about the registration can be found in "
  127.             "the Registration program or in the documentation!\n\n"
  128.             "Enjoy using DFA.\n\n"
  129.             "Dirk Federlein"
  130.     )
  131. )
  132.  
  133. (set #msg-dfadest-prompt    "Please select a place for the DFA distribution")
  134. (set #msg-dfadest-help
  135.     (cat    "Choose a destination partition or directory "
  136.             "to contain the DFA distribution. A new drawer, "
  137.             "called 'DFA' will be generated to contain some "
  138.             "parts of the distribution by default. Other parts "
  139.             "of the distribution may be installed to this "
  140.             "drawer or the drawer you specify in the particular "
  141.             "case. "
  142.     )
  143. )
  144.  
  145. (set #msg-mkdfadir-prompt
  146.     (cat    "You have selected a drawer named 'DFA'!\n"
  147.             "Does this mean you want to install the "
  148.             "DFA application to THIS drawer?"
  149.     )
  150. )
  151. (set #msg-mkdfadir-help
  152.     (cat    "Select 'Yes' to install DFA directly into "
  153.             "the existing drawer or select 'No' to "
  154.             "install the 'DFA' package into a new drawer "
  155.             "called 'DFA'."
  156.     )
  157. )
  158.  
  159. (set #msg-installto-msg "The DFA application will be installed into: \n\n" )
  160. (set #msg-setdirtree-working "Setting up the DFA default directory tree...")
  161.  
  162. (set #msg-imgdrawers-prompt
  163.     (cat    "Would you like to get the very special\n"
  164.             "Image Drawers of MagicWB 2.0 installed?\n\n"
  165.     )
  166. )
  167.  
  168. (set #msg-imgdrawers-help
  169.     (cat    "Usually the default drawer image is used for "
  170.             "all drawers.\n\n"
  171.             "If you select 'Yes', the beautiful MagicWB 2.0 "
  172.             "'Image Drawers' are installed!\n"
  173.     )
  174. )
  175.  
  176. (set #msg-startup-prompt    "Now the DFA assignment will be included into your user-startup file. ")
  177. (set #msg-startup-help
  178.     (cat    "This is absolutely needed for the DFA application\n"
  179.             "to run correctly, so don't skip this part."
  180.     )
  181. )
  182.  
  183. (set #msg-defexe-prompt "Copying default executables...")
  184.  
  185. (set #msg-serverdest-prompt "Please select a place for the DFA-Server executable")
  186. (set #msg-serverdest-help
  187.     (cat    "Choose a destination partition or directory "
  188.             "to contain the DFA-Server executable.  The install "
  189.             "program copies the DFA-Server executable 'DFA' "
  190.             "to the location you choose. "
  191.             "No extra drawer will be created! "
  192.     )
  193. )
  194.  
  195. (set #msg-xserver-working        "Extracting DFA-Server executable from archive...")
  196. (set #msg-iserver-prompt        "Installing the DFA-Server executable...")
  197. (set #msg-iservericon-prompt    "Installing DFA-Server Icon...")
  198.  
  199.  
  200. (set #msg-editordest-prompt    "Please select a place for the DFA-Editor executable")
  201. (set #msg-editordest-help
  202.     (cat    "Choose a destination partition or directory "
  203.             "to contain the DFA-Editor executable.  The install "
  204.             "program copies the DFA-Editor executable 'DFAEditor' "
  205.             "to the location you choose. "
  206.             "No extra drawer will be created! "
  207.     )
  208. )
  209.  
  210. (set #msg-xeditor-working        "Extracting DFA-Editor executable from archive...")
  211. (set #msg-ieditor-prompt        "Installing the DFA-Editor executable...")
  212. (set #msg-ieditoricon-prompt    "Installing DFA-Editor icon...")
  213.  
  214. (set #msg-prefsdest-prompt    "Please select a place for the DFA-Prefs executable")
  215. (set #msg-prefsdest-help
  216.     (cat    "Choose a destination partition or directory "
  217.             "to contain the DFA-Prefs executable.  The install "
  218.             "program copies the DFA-Prefs executable 'DFAPrefs' "
  219.             "to the location you choose. "
  220.             "No extra drawer will be created! "
  221.     )
  222. )
  223.  
  224. (set #msg-xprefs-working    "Extracting DFA-Prefs executable from archive...")
  225. (set #msg-iprefs-prompt        "Installing the DFA-Preferences executable...")
  226. (set #msg-iprefsicon-prompt    "Installing DFA-Prefs icon...")
  227.  
  228. (set #msg-libdest-prompt    "Please select a place for the DFA-Library")
  229. (set #msg-libdest-help
  230.     (cat    "Choose a destination partition or directory "
  231.             "to contain the DFA-Library.  The install "
  232.             "program copies the DFA-Library 'dfa.library' "
  233.             "to the location you choose. "
  234.             "No extra drawer will be created! "
  235.     )
  236. )
  237. (set #msg-xlib-working    "Extracting the DFA-Library from archive...")
  238. (set #msg-ilib-prompt    "Installing the DFA-Library...")
  239.  
  240. (set #msg-locale-prompt    "Which language(s) do you want to get installed?")
  241. (set #msg-locale-help
  242.     (cat    "You may choose none, one or more languages. "
  243.             "If you don't have an operation system that "
  244.             "supports locale, please select no language "
  245.             "at all.\n"
  246.             "Locale support is given in Workbench 2.1 "
  247.             "and above.\n"
  248.             "Please note that English is the builtin "
  249.             "language and does not need extra catalog "
  250.             "files! "
  251.     )
  252. )
  253.  
  254. (set #msg-xlocale-ger-working    "Extracting german catalogs from archive...")
  255. (set #msg-xlocale-fre-working    "Extracting french catalogs from archive...")
  256.  
  257. (set #msg-ulocale-ger-working    "Deleting obsolete german catalogs...")
  258. (set #msg-ulocale-ger-working    "Deleting obsolete french catalogs...")
  259.  
  260. (set #msg-arexx-prompt
  261.     (cat    "Do you want to install the example AREXX scripts?\n\n"
  262.             "Please notice that Arexx scripts that you may "
  263.             "have got together with DFA V1.x are NOT "
  264.             "compatible to the new ones in some ways!\n\n"
  265.             "For details about these Arexx scripts please "
  266.             "read the documentation and look up the "
  267.             "information given in the particular scripts. "
  268.     )
  269. )
  270. (set #msg-arexx-help
  271.     (cat    "The sample ARexx scripts can give you an idea "
  272.             "how to use DFA in connection to ARexx and e.g. "
  273.             "the Cygnus Ed (by ADSG).\n"
  274.             "Please notice: Only arexx scripts that do not "
  275.             "already exist, will be installed!\n"
  276.     )
  277. )
  278.  
  279. (set #msg-arexxdest-prompt    "Select the directory where to install the ARexx scripts")
  280. (set #msg-arexxdest-help
  281.     (cat    "If you want to *use* the Arexx scripts at once, "
  282.             "select an directory that is already within your "
  283.             "Arexx search path."
  284.     )
  285. )
  286. (set #msg-xarexx-working    "Extracting Arexx scripts from archive...")
  287.  
  288. (set #msg-keydest-prompt    "Select the directory where to install the DFA keyfile")
  289. (set #msg-keydest-help
  290.     (cat    "The DFA keyfile can be copied to any drawer. "
  291.             "The default directory where the keyfile is "
  292.             "copied to is 's:'."
  293.             "If you select another drawer, the environment "
  294.             "variable 'KEYPATH' is set accordingly."
  295.     )
  296. )
  297. (set #msg-ikeyfile-prompt        "Installing the DFA keyfile...")
  298. (set #msg-setkeypath-working    "Setting environment variable 'KEYPATH'...")
  299.  
  300. (set #msg-iadrfile-prompt    "Do you want to install the default\naddress file?")
  301. (set #msg-iadrfile-help
  302.     (cat    "The default address file is named 'default.dfa' and "
  303.             "will be copied into the 'DFA:AddressFiles' drawer. "
  304.             "It contains the author's address which could be "
  305.             "useful in some cases (Bug reports, Registration etc.) "
  306.             "However, if you do already have such a file within "
  307.             "your 'DFA:Addressfiles' drawer you may not want to overwrite it. "
  308.     )
  309. )
  310. (set #msg-adrfileconfirm-prompt
  311.     (cat    "Be careful!\n "
  312.             "There already exists a file called 'default.dfa' in the 'DFA:Addressfiles' directory.\n "
  313.             "Do you really want to overwrite this file? \n"
  314.     )
  315. )
  316.  
  317. (set #msg-doclang-prompt    "Choose which documentation you want to get installed")
  318. (set #msg-doclang-help        
  319.     (cat    "Depending on the language you select, "
  320.             "the corresponding TeX, AmigaGuide, "
  321.             "ONLINE help and readme files will "
  322.             "be installed."
  323.     )
  324. )
  325. (set #msg-doclang-eng-choice    "English documentation")
  326. (set #msg-doclang-ger-choice    "German documentation")
  327.  
  328. (set #msg-ireadme-prompt    "Copying default readme files...")
  329.  
  330. (set #msg-docparts-prompt
  331.     (cat    "Choose the kind of documentation you would "
  332.             "like to get installed"
  333.     )
  334. )
  335. (set #msg-docparts-help
  336.     (cat    "The AmigaGuide documentation will only "
  337.             "be usefull, if you have an amigaguide "
  338.             "reader like 'Amigaguide' or 'Multiview' "
  339.             "It _can_ be used for ONLINE help as well "
  340.             "but you can used separate ONLINE help "
  341.             "files for that purpose.\n"
  342.             "They will be installed later on.\n"
  343.             "The DVI file makes only sense if you have "
  344.             "a TeX package or at least parts of it installed. "
  345.     )
  346. )
  347. (set #msg-docparts-ag-choice    "AmigaGuide documentation")
  348. (set #msg-docparts-tex-choice    "TeX documentation (.dvi file)")
  349.  
  350. (set #msg-agdocdest-prompt    "Select the location to install the Amigaguide documentation")
  351. (set #msg-agdocdest-help
  352.     (cat    "Choose a destination partition or directory "
  353.             "to contain the Amigaguide documentation. "
  354.             "The install program will copy the Amigaguide documentation "
  355.             "to this directory."
  356.     )
  357. )
  358. (set #msg-xag-working        "Extracting Amigaguide documentation from archive")
  359.  
  360. (set #msg-texdocdest-prompt    "Select the location to install the TeX documentation")
  361. (set #msg-texdocdest-help
  362.     (cat    "Choose a destination partition or directory "
  363.             "to contain the TeX documentation. "
  364.             "The install program will copy the TeX documentation "
  365.             "to this directory."
  366.     )
  367. )
  368. (set #msg-xtex-working        "Extracting TeX documentation from archive")
  369.  
  370. (set #msg-oparts-prompt
  371.     (cat    "You may choose the online help files you like "
  372.             "to get installed. (select <HELP> for details!)"
  373.     )
  374. )
  375. (set #msg-oparts-help
  376.     (cat    "BIG Amigaguide documentation:\n"
  377.             "This is the 'ordinary' AmigaGuide documentation "
  378.             "If you've already installed it you may save some "
  379.             "harddisk space if you select it. However, please "
  380.             "don't forget that the complete file must be loaded "
  381.             "into RAM, if the ONLINE help is invoked!\n\n"
  382.             "Seperate ONLINE help files:\n"
  383.             "These files are much smaller than the BIG "
  384.             "documentation file. They need less RAM and "
  385.             "are loaded much faster."
  386.             "However they need some KB on your harddisk.\n\n"
  387.             "No online help:\n"
  388.             "If you don't need/like the ONLINE help feature, "
  389.             "you may choose to select no ONLINE help file "
  390.             "at all. But don't complain, if there doesn't "
  391.             "pop up a help requester if you press HELP! "
  392.     )
  393. )
  394. (set #msg-oparts-bighelp-choice        "Big AmigaGuide documentation (200 KB) ")
  395. (set #msg-oparts-smallhelp-choice        "Small ONLINE help files (recommended!) ")
  396. (set #msg-oparts-nohelp-choice            "No ONLINE help at all ")
  397.  
  398. (set #msg-onlinedest-prompt    "Select the location to install the ONLINE help")
  399. (set #msg-onlinedest-help
  400.     (cat    "Choose a destination partition or directory "
  401.             "to contain the online help. "
  402.             "The install program will copy the online help files "
  403.             "to this directory."
  404.     )
  405. )
  406. (set #msg-xonline-working    "Extracting ONLINE help from archive")
  407. (set #msg-noonlinehelp-msg
  408.     (cat    "You chose not to install any online help "
  409.             "at all. If you want to install it later, "
  410.             "look in the Documentation.lha archive for "
  411.             "the files 'DFAEditor.guide' and "
  412.             "'DFAPrefs.guide'. Use the 'lhx'-utility "
  413.             "from the 'Tools' directory to extract these "
  414.             "files and read the documentation to learn "
  415.             "how to set the corresponding tooltypes "
  416.             "for the 'DFA-Editor' and the 'DFA-Prefs' "
  417.             "program."
  418.     )
  419. )
  420.  
  421. (set #msg-odu-prompt    "Do you want to install the OwnDevUnit.library\n(Version 3.3)?")
  422. (set #msg-odu-help
  423.     (cat    "This library is only needed, if you want to "
  424.             "use DFAfor dialing. Even then it is only needed, "
  425.             "if you are using programms like 'getty' that "
  426.             "sit on the serial device all the time.\n"
  427.             "In such a case the OwnDevUnit.library allows "
  428.             "DFA to signal the 'foreign' application that "
  429.             "it wants to use the serial device.\n "
  430.             "If it is not currently used, i.e. no data is "
  431.             "transferred, DFA gets the serial port for "
  432.             "dialing and returns it as soon as the dialing "
  433.             "job is completed."
  434.     )
  435. )
  436. (set #msg-odudest-prompt    "Select the directory where to install the OwnDevUnit.library")
  437. (set #msg-odudest-help "")
  438. (set #msg-iodu-prompt    "Installing the OwnDevUnit.Library...")
  439.  
  440. (set #msg-tooltypes-msg
  441.     (cat    "Now several tooltypes are set:\n\n"
  442.             "* To DFA:       - The path of the DFA-Editor program \n\n"
  443.             "* To DFAEditor: - The path of the DFA-Prefs program  \n"
  444.             "                - The path of the ONLINE help file   \n\n"
  445.             "* To DFAPrefs:  - The path of the ONLINE help file   \n\n"
  446.             "All icon positions are reset as well."
  447.     )
  448. )
  449.  
  450. (set #msg-end1-msg    "The DFA-Server program (DFA) can be found in\n%s\n")
  451. (set #msg-end2-msg    "The DFA-Editor is located in %s\n")
  452. (set #msg-end3-msg    "and the DFA-Prefs program was copied to\n%s\n")
  453.  
  454. (set #msg-exit-msg    "\nHave fun using DFA\n (and don't forget that it's SHAREWARE)")
  455.  
  456. ;========================================================
  457. ; German strings
  458.  
  459. (if (= @language "deutsch")
  460. (
  461.     (set default_lang 1)
  462.  
  463. (set #msg-doserror-msg    "DOS Fehler %ld aufgetreten.")
  464.  
  465. (set #msg-imgdrawers-prompt    "Kopiere Image-Schublade...")
  466. (set #msg-iicon                "Installiere Icon...")
  467.  
  468.     ; Specials...
  469.  
  470. (set #msg-transcript-msg "Installation des Adress-Programms DFA...")
  471.  
  472. (set #msg-olddfa-prompt
  473.     (cat    "Es existiert eine alte Version von DFA "
  474.             "auf Ihrer Festplatte!\n\n"
  475.             "Wollen Sie diese deinstallieren?\n"
  476.     )
  477. )
  478. (set #msg-olddfa-help
  479.     (cat    "Wenn Sie 'YES' wählen, wird die alte Version"
  480.             "von DFA und alle mit dieser Version in Verbindung "
  481.             "stehenden Dateien, wie z.B. Locale-Kataloge, "
  482.             "alte Voreinstellungen u.s.w. gelöscht.\n\n"
  483.             "Bestehende Adress-Dateien bleiben unberührt, "
  484.             "sodaß Sie keine Adressen verlieren!"
  485.     )
  486. )
  487.  
  488. (set #msg-udfaexe-choice    "DFA Programme" )
  489. (set #msg-udfadoc-choice    "DFA Dokumentation")
  490. (set #msg-udfarexx-choice    "DFA Arexx Skripte")
  491. (set #msg-udfareadme-choice    "DFA Kurzmitteilungen (READMEs)")
  492. (set #msg-udfaodu-choice    "OwnDevUnit-Library")
  493. (set #msg-udirtree-choice    "DFA Verzeichnis-Struktur")
  494.  
  495. (set #msg-uninstall-prompt    "Bitte wählen Sie die Teile von DFA, die Sie deinstallieren wollen!")
  496. (set #msg-uninstall-help
  497.     (cat    "Sie können keinen Punkt, einige oder alle "
  498.             "dargestellten Punkte auswählen. Der Installer "
  499.             "wird versuchen, die verschiedenen Teile von DFA "
  500.             "zu deinstallieren.\n"
  501.             "Bitte beachten Sie, daß es nicht möglich "
  502.             "ist, die Schublade mit den Adressdateien "
  503.             "zu loeschen, da dies 'zu gefährlich' wäre.\n"
  504.             "Aus diesen Gründen bleibt das DFA-Hauptverzeichnis "
  505.             "ebenso wie der DFA-Assign (der in der user-startup "
  506.             "Datei ausgeführt wird) bestehen.\n\n"
  507.             "Das Löschen der DFA-Verzeichnis-Struktur bedeutet, "
  508.             "daß alle Unterverzeichnisse innerhalb des 'DFA:' "
  509.             "Verzeichnisses gelöscht werden, mit Ausnahme "
  510.             "der 'Addressfiles'-Schublade (siehe oben).\n"
  511.             "Weiterhin werden nur LEERE Verzeichnisse gelöscht, "
  512.             "d.h. die Verzeichnis-Struktur wird nur dann "
  513.             "gelöscht, wenn Sie auch den Inhalt der Schubladen "
  514.             "löschen.\n\n"
  515.             "Die Lokale-Dateien werden in jedem Fall gelöscht.\n"
  516.     )
  517. )
  518.  
  519. (set #msg-udfaexe-msg        "Die DFA - Programme werden deinstalliert.")
  520. (set #msg-udfadoc-msg        "Die DFA - Dokumentation wird deinstalliert.")
  521. (set #msg-udfarexx-msg        "Die DFA - Arexx-Skripts werden deinstalliert.")
  522. (set #msg-udfareadme-msg    "Die DFA - Kurzmitteilungen (READMEs) werden deinstalliert.")
  523. (set #msg-udfaodu-msg        "Die 'OwnDevUnit'-Library wird deinstalliert.")
  524. (set #msg-udirtree-msg        "Die DFA - Verzeichnis-Struktur wird deinstalliert.")
  525.  
  526. (set #msg-udfa1xexe-working    "Lösche DFA V1.x...")
  527. (set #msg-udfa20lib-working    "Lösche die DFA-2.0-Library...")
  528. (set #msg-udfa20prf-working    "Lösche das DFA-2-0-Preferences-Programm...")
  529. (set #msg-udfawarn-msg
  530.     (cat    "Wenn Sie bereits DFA V2.x installiert hatten, stellen Sie bitte sicher, "
  531.             "daß Sie die Version 2.2 nicht mit früheren Version 'mischen', "
  532.             "da eine gleichzeitige Benutzung von Teilen aus verschiedenen Versionen "
  533.             "zu unerwünschten Nebeneffekten und sogar Systemabstürzen führen kann."
  534.     )
  535. )
  536.  
  537. (set #msg-udfa1xcat-working    "Lösche Katalog-Dateien von DFA V1.x...")
  538. (set #msg-udfa20cat-working    "Lösche Katalog-Dateien von DFA V2.x...")
  539.  
  540.  
  541. (set #msg-uprefsfile-prompt
  542.     (cat    "Wollen Sie Ihre alte Preferences-Datei "
  543.             "löschen?"
  544.     )
  545. )
  546.  
  547. (set #msg-uprefsfile-help
  548.     (cat    "Wenn Sie 'YES' wählen, wird die alte Voreinstellungs-Datei "
  549.             "gelöscht, d.h. Sie müssen alle Fensterpositionen "
  550.             "neu justieren und alle Einstellungen von Grund auf "
  551.             "vornehmen.\n\n"
  552.             "Bitte beachten Sie, daß alte Voreinstellungs-Dateien "
  553.             "von aktuellen DFA-Versionen gelesen werden können."
  554.     )
  555. )
  556.  
  557. (set #msg-uprefsfile-working    "Lösche die DFA-Voreinstellungs-Datei...")
  558.  
  559. (set #msg-nodfa-msg
  560.     (cat    "Keine alte DFA-Version gefunden!\n"
  561.             "Entweder habe Sie gar keine alte Version installiert, "
  562.             "oder sie befindet sich an einem Platz auf Ihrer "
  563.             "Festplatte, wo sie nicht gefunden werden konnte.\n\n"
  564.             "Wenn sich eine alte Version von DFA irgendwo auf Ihrem "
  565.             "System befinden sollte, löschen Sie diese bitte von "
  566.             "Hand, oder stellen Sie sicher, daß beide Versionen nicht "
  567.             "zur selben Zeit laufen, da sie nicht kompatibel sind."
  568.     )
  569. )
  570.  
  571. (set #msg-dfashare-msg
  572.     (cat    "*** DFA ist SHAREWARE ***\n\n"
  573.             "Wenn Sie DFA regelmäßig benutzen, denken Sie bitte "
  574.             "daran, daß Sie sich registrieren lassen müssen!\n"
  575.             "Bitte beachten Sie, daß die Zeit, die der Autor in DFA "
  576.             "investieren kann, nicht zuletzt von der Anzahl der "
  577.             "Anwender abhängt, die bereit sind, sich registrieren "
  578.             "zu lassen.\n"
  579.             "Wie Sie sich registrieren lassen können, entnehmen Sie "
  580.             "bitte dem Registrierungs-Programm oder der Dokumentation.\n\n"
  581.             "Viel Spaß mit DFA wünscht Ihnen\n"
  582.             "Dirk Federlein"
  583.     )
  584. )
  585.  
  586. (set #msg-dfadest-prompt    "Bitte wählen Sie einen Platz für das DFA-Verzeichnis")
  587. (set #msg-dfadest-help
  588.     (cat    "Wählen Sie eine Partition oder eine Schublade, "
  589.             "die das DFA-Paket enthalten soll. Eine neue Schublade "
  590.             "mit dem Namen 'DFA' wird angelegt, die mindestens einige "
  591.             "grundsätzliche Teile des DFA-Packets enthalten wird.\n"
  592.             "Andere Teile des DFA-Packets können in dieses Verzeichnis "
  593.             "oder die jeweils von Ihnen vorgegebene Schublade kopiert werden."
  594.     )
  595. )
  596.  
  597. (set #msg-mkdfadir-prompt
  598.     (cat    "Sie haben eine Schublade mit dem Namen 'DFA' ausgewählt!\n"
  599.             "Bedeutet dies, daß Sie das DFA-Packet in DIESES "
  600.             "Verzeichnis installieren wollen?"
  601.     )
  602. )
  603.  
  604. (set #msg-mkdfadir-help
  605.     (cat    "Wählen Sie 'Yes' um das 'DFA'-Packet direkt in "
  606.             "die bereits bestehende Schublade zu installieren "
  607.             "oder wählen Sie 'No' um eine neue Schublade  mit "
  608.             "dem Namen 'DFA' für die 'DFA'-Distribution anzulegen."
  609.     )
  610. )
  611.  
  612. (set #msg-installto-msg "Die DFA-Applikation wird installiert nach:\n\n" )
  613. (set #msg-setdirtree-working "Installiere die DFA-Verzeichnis-Struktur...")
  614.  
  615. (set #msg-imgdrawers-prompt
  616.     (cat    "Möchten Sie die besonderen 'Image'-Schubladen "
  617.             "der MagicWB 2.0 installieren?\n\n"
  618.     )
  619. )
  620. (set #msg-imgdrawers-help
  621.     (cat    "Normalerweise wird das 'Default'-Icon für alle "
  622.             "neu angelegten Schubladen verwendet.\n\n"
  623.             "Wenn Sie jedoch 'Yes' wählen, werden die wunderschönen MagicWB 2.0 "
  624.             "'Image'-Schubladen installiert!\n"
  625.     )
  626. )
  627.  
  628. (set #msg-startup-prompt    "Die DFA-Zuweisung wird nun in Ihre 'user-startup'-Datei eingefügt.")
  629. (set #msg-startup-help
  630.     (cat    "Dieser Vorgang ist absolut notwendig, damit die DFA-Application\n"
  631.             "korrekt funktioniert. Überspringen Sie also nicht diesen Teil "
  632.             "der Installation!"
  633.     )
  634. )
  635.  
  636. (set #msg-defexe-prompt "Kopiere Standard-Programme...")
  637.  
  638. (set #msg-serverdest-prompt "Bitte wählen Sie einen Platz für das DFA-Server Programm!")
  639. (set #msg-serverdest-help
  640.     (cat    "Wählen Sie eine Partition oder ein Verzeichnis "
  641.             "das das DFA-Server Programm enthalten soll.  Das "
  642.             "Installier-Program kopiert den DFA-Server (Dateiname: 'DFA') "
  643.             "an den gewünschten Ort.\n"
  644.             "Es wird keine zusätzliche Schublade erzeugt!"
  645.     )
  646. )
  647.  
  648. (set #msg-xserver-working        "Entpacke das DFA-Server Programm...")
  649. (set #msg-iserver-prompt        "Installiere das DFA-Server Programm...")
  650. (set #msg-iservericon-prompt    "Installiere das DFA-Server Icon...")
  651.  
  652.  
  653. (set #msg-editordest-prompt    "Bitte wählen Sie einen Platz für das DFA-Editor Programm")
  654. (set #msg-editordest-help
  655.     (cat    "Wählen Sie eine Partition oder ein Verzeichnis, "
  656.             "welches das DFA-Editor Programm enthalten soll.  Das "
  657.             "Installations-Programm kopiert den DFA-Editor (Dateiname: 'DFAEditor') "
  658.             "an den von Ihnen angegebenen Ort.\n"
  659.             "Es wird keine zusätzliche Schublade angelegt!"
  660.     )
  661. )
  662.  
  663. (set #msg-xeditor-working        "Entpacke das DFA-Editor Programm...")
  664. (set #msg-ieditor-prompt        "Installiere das DFA-Editor Programm...")
  665. (set #msg-ieditoricon-prompt    "Installiere das DFA-Editor Icon...")
  666.  
  667. (set #msg-prefsdest-prompt    "Bitte wählen Sie einen Platz für das  DFA-Voreinstellungs-Programm!")
  668. (set #msg-prefsdest-help
  669.     (cat    "Wählen Sie eine Partition oder ein Verzeichnis, "
  670.             "welches das DFA-Preferences-Programm enthalten soll. "
  671.             "Das Installations-Program kopiert das DFA-Preferences-Programm "
  672.             "(Dateiname: 'DFAPrefs') an den Ort, den Sie vorgeben.\n"
  673.             "Es wird keine weitere Schublade angelegt!"
  674.     )
  675. )
  676.  
  677. (set #msg-xprefs-working    "Entpacke das DFA-Voreinstellungs Programm...")
  678. (set #msg-iprefs-prompt        "Installiere das DFA-Voreinstellungs Programm...")
  679. (set #msg-iprefsicon-prompt    "Installiere das DFA-Voreinstellungs Icon...")
  680.  
  681. (set #msg-libdest-prompt    "Bitte wählen Sie einen Platz für die DFA-Library")
  682. (set #msg-libdest-help
  683.     (cat    "Wählen Sie eine Partition oder ein Verzeichnis, "
  684.             "das die DFA-Library enthalten soll.  Das Installations-Programm"
  685.             "kopiert die DFA-Library (Dateiname: 'dfa.library') "
  686.             "an den von Ihnen vorgegebenen Ort.\n"
  687.             "Es wird keine zusätzliche Schublade erzeugt!"
  688.     )
  689. )
  690. (set #msg-xlib-working    "Entpacke die DFA-Library...")
  691. (set #msg-ilib-prompt    "Installiere die DFA-Library...")
  692.  
  693. (set #msg-locale-prompt    "Welche Sprache(n) wollen Sie installieren?")
  694. (set #msg-locale-help
  695.     (cat    "Sie können keine, eine oder mehrere Sprache wählen. "
  696.             "Wenn Sie noch ein Betriebs-System verwenden, das "
  697.             "keine Landessprachenunterstützung bietet (OS 2.0), "
  698.             "so wählen Sie bitte KEINE Sprache aus.\n"
  699.             "Landessprachen werden ab Amiga-OS 2.1 unterstützt.\n"
  700.             "Bitte beachten Sie, daß Englisch die fest eingebaute "
  701.             "Sprache ist und daher keine zusätzlichen Kataloge "
  702.             "benötigt! "
  703.     )
  704. )
  705.  
  706. (set #msg-xlocale-ger-working    "Entpacke deutsche Kataloge...")
  707. (set #msg-xlocale-fre-working    "Entpacke französische Kataloge...")
  708.  
  709. (set #msg-ulocale-ger-working    "Entferne überflüssige deutsche Kataloge...")
  710. (set #msg-ulocale-ger-working    "Entferne überflüssige französische Kataloge...")
  711.  
  712. (set #msg-arexx-prompt
  713.     (cat    "Möchten Sie die mitgelieferten Beispiel-Arexx-Skripts installieren?\n\n"
  714.             "Bitte beachten Sie, daß eventuell vorhandene "
  715.             "Arexx-Skripts der Versionen 1.0 bis 1.2x nicht in "
  716.             "jeder Hinsicht zu denen der Version 2.x kompatibel sind!\n\n"
  717.             "Zu näheren Informationen zu den jeweiligen Arexx-Skripts "
  718.             "lesen Sie bitte die Dokumentation und sehen Sie auch "
  719.             "in den Skripts selbst nach."
  720.     )
  721. )
  722. (set #msg-arexx-help
  723.     (cat    "Die Beispiel-ARexx-Skripts können Ihnen einen Eindruck "
  724.             "davon vermitteln, wie man DFA in Verbindung mit Arexx und z.B. "
  725.             "dem Cygnus-Ed (von ADSG) verwenden kann.\n"
  726.             "Bitte beachten Sie: Nur Arexx-Scripts, die noch nicht "
  727.             "vorhanden sind, werden installiert!\n"
  728.     )
  729. )
  730.  
  731. (set #msg-arexxdest-prompt    "Wählen Sie das Verzeichnis für die Arexx-Skripts")
  732. (set #msg-arexxdest-help
  733.     (cat    "Wenn Sie die Arexx-Skripts *sofort* verwenden wollen, "
  734.             "wählen Sie bitte ein Verzeichnis, das sich bereits innerhalb "
  735.             "des Arexx-Such-Pfades befindent (z.B. 'Rexx:')"
  736.     )
  737. )
  738. (set #msg-xarexx-working    "Entpacke Arexx-Skripts...")
  739.  
  740. (set #msg-keydest-prompt    "Wählen Sie ein Verzeichnis für das DFA-Keyfile")
  741. (set #msg-keydest-help
  742.     (cat    "Das DFA-Keyfile kann in jede Schublade kopiert werden.\n"
  743.             "Das Standard-Verzeichnis für das Keyfile ist die "
  744.             "'s:'-Schublade."
  745.             "Wenn Sie ein anderes Verzeichnis wählen, so wird "
  746.             "automatisch die Variable 'KEYPATH' entsprechend gesetzt."
  747.     )
  748. )
  749. (set #msg-ikeyfile-prompt        "Installiere das DFA-Keyfile...")
  750. (set #msg-setkeypath-working    "Setze die Umgebungs-Variable 'KEYPATH'...")
  751.  
  752. (set #msg-iadrfile-prompt    "Möchten Sie die Standard-Adress-Datei installieren?")
  753. (set #msg-iadrfile-help
  754.     (cat    "Die Standard-Adress-Datei nennt sich 'default.dfa' und "
  755.             "wird in das Verzeichnis 'DFA:AddressFiles' kopiert.\n"
  756.             "Sie enthält die Adresse des Autors, welche in manchen "
  757.             "Fällen von Nutzen sein kann (Fehler-Berichte, Registrierungen, usw.)\n"
  758.             "Wenn Sie aber bereits eine derartige Datei in diesem "
  759.             "Verzeichnis besitzen, wollen Sie diese wahrscheinlich "
  760.             "nicht überschreiben."
  761.     )
  762. )
  763. (set #msg-adrfileconfirm-prompt
  764.     (cat    "Achtung! Vorsicht!\n\n"
  765.             "Es existiert bereits eine Datei mit dem Namen 'default.dfa' "
  766.             "im Verzeichnis 'DFA:Addressfiles'.\n "
  767.             "Wollen Sie dieses TATSÄCHLICH überschreiben?"
  768.     )
  769. )
  770.  
  771. (set #msg-doclang-prompt    "Wählen Sie, welche Dokumentation Sie instalieren möchten!")
  772. (set #msg-doclang-help
  773.     (cat    "Abhängig von der Sprache, die Sie anwählen, "
  774.             "wird die entprechende TeX- und AmigaGuide-"
  775.             "Dokumentation, ONLINE-Hilfe und Kurzinformationen "
  776.             "(READMEs) installiert."
  777.     )
  778. )
  779. (set #msg-doclang-eng-choice    "Englische Dokumenation")
  780. (set #msg-doclang-ger-choice    "Deutsche Dokumentation")
  781.  
  782. (set #msg-ireadme-prompt    "Kopiere Standard-Kurzinformationen (READMEs)...")
  783.  
  784. (set #msg-docparts-prompt
  785.     (cat    "Wählen Sie, welche Art der Dokumentation "
  786.             "Sie installieren möchten!"
  787.     )
  788. )
  789. (set #msg-docparts-help
  790.     (cat    "Die AmigaGuide-Dokumenation ist nur sinnvoll, "
  791.             "wenn Sie ein entsprechendes Anzeigeprogramm, "
  792.             "wie z.B. 'Multiview' oder 'AmigaGuide' besitzen.\n"
  793.             "Sie *kann* auch für die Online-Hilfe verwendet "
  794.             "werden, aber für diesen Zweck sind normalerweise "
  795.             "separate Dateien vorgesehen.\n"
  796.             "Diese werden (auf Wunsch) später installiert.\n\n"
  797.             "Die TeX-Dokumentation nützt Ihnen nur dann etwas, "
  798.             "wenn Sie zumindest Teile eines TeX-Packetes "
  799.             "(z.B. PasTeX von G.Heßmann) installiert haben."
  800.     )
  801. )
  802. (set #msg-docparts-ag-choice    "AmigaGuide Dokumentation")
  803. (set #msg-docparts-tex-choice    "TeX Dokumentation (.dvi Datei)")
  804.  
  805. (set #msg-agdocdest-prompt    "Wählen Sie einen Platz für die AmigaGuide-Dokumentation")
  806. (set #msg-agdocdest-help
  807.     (cat    "Wählen Sie eine Partition oder ein Verzeichnis, "
  808.             "das die Amigaguide-Dokumentation enthalten soll.\n"
  809.             "Das Installations-Programm wird die AmigaGuide-Anleitung "
  810.             "dorthin kopieren."
  811.     )
  812. )
  813. (set #msg-xag-working        "Entpacke die AmigaGuide-Dokumentation...")
  814.  
  815. (set #msg-texdocdest-prompt    "Wählen Sie einen Platz für die TeX-Dokumentation")
  816. (set #msg-texdocdest-help
  817.     (cat    "Wählen Sie eine Partition oder ein Verzeichnis, "
  818.             "das die TeX-Dokumentation enthalten soll.\n"
  819.             "Das Installations-Programm wird die TeX-Anleitung "
  820.             "dorthin kopieren."
  821.     )
  822. )
  823. (set #msg-xtex-working        "Entpacke die TeX-Dokumentation...")
  824.  
  825. (set #msg-oparts-prompt
  826.     (cat    "Wählen Sie die ONLINE-Hilfe-Dateien, die Sie "
  827.             "installieren möchten. (<HELP> für nähere Informationen!)"
  828.     )
  829. )
  830. (set #msg-oparts-help
  831.     (cat    "GROSSE AmigaGuide-Dokumentation:\n"
  832.             "Dies ist die 'normale' AmigaGuide-Dokumentation. "
  833.             "Wenn Sie diese bereits zuvor installiert haben, können "
  834.             "Sie etwas Festplatten-Platz sparen, wenn Sie sie "
  835.             "auch hier auswählen. Beachten Sie aber, daß die komplette "
  836.             "Datei ins RAM geladen werden muß wenn Sie die "
  837.             "ONLINE-Hilfe anfordern.\n\n"
  838.             "Getrennte ONLINE-Hilfe-Dateien:\n"
  839.             "Diese Dateien sind viel kleiner, als die GROSSE "
  840.             "AmigaGuide-Dokumentatioin. Sie benötigen daher "
  841.             "weniger RAM: und können viel schneller geladen "
  842.             "werden. Allerdings benötigen Sie etwas zusätzlichen "
  843.             "Platz auf Ihrer Festplatte.\n\n"
  844.             "Keine ONLINE-Hilfe:\n"
  845.             "Wenn Sie keine Online-Hilfe brauchen oder wünschen, "
  846.             "können sie die Installation der Online-Hilfe "
  847.             "vermeiden. Wundern Sie sich aber bitte nicht, "
  848.             "wenn sie dann nach dem Druck auf die Help-Taste "
  849.             "keine Online-Hilfe erhalten."
  850.     )
  851. )
  852. (set #msg-oparts-bighelp-choice        "GROSSE AmigaGuide-Dokumentation (200 KB) ")
  853. (set #msg-oparts-smallhelp-choice    "Getrennte Online-Hilfe-Dateien (empfohlen!) ")
  854. (set #msg-oparts-nohelp-choice        "Keine Online-Hilfe")
  855.  
  856. (set #msg-onlinedest-prompt    "Wählen Sie einen Platz für die ONLINE-Hilfe")
  857. (set #msg-onlinedest-help
  858.     (cat    "Wählen Sie eine Partition oder ein Verzeichnis, "
  859.             "das die Online-Hilfe enthalten soll.\n"
  860.             "Das Installations-Programm wird die Online-Hilfe-Dateien "
  861.             "dorthin kopieren."
  862.     )
  863. )
  864. (set #msg-xonline-working    "Entpacke die ONLINE-Hilfe...")
  865. (set #msg-noonlinehelp-msg
  866.     (cat    "Sie haben die Wahl getroffen, keine ONLINE-Hilfe "
  867.             "zu installieren. Wenn Sie diese später doch noch "
  868.             "installieren möchten, dann suchen Sie im Archiv "
  869.             "'Documentation.lha' nach den Dateien 'DFAEditor.guide' und "
  870.             "'DFAPrefs.guide'. Verwenden Sie das 'lhx'-Utility "
  871.             "Um diese Dateien zu entpacken und lesen in der "
  872.             "Dokumentation nach, wie die entsprechenden "
  873.             "Tooltypes für den DFA-Editor und das "
  874.             "DFA-Voreinstellungs-Programm zu setzen sind."
  875.     )
  876. )
  877.  
  878. (set #msg-odu-prompt    "Wollen Sie die OwnDevUnit.library\n(Version 3.3) installieren?")
  879. (set #msg-odu-help
  880.     (cat    "Diese Library wird nur benötigt, wenn Sie DFA "
  881.             "zum Anwählen von Telefonnummern verwenden wollen.\n"
  882.             "Selbst dann ist sie aber nur notwendig, wenn Sie "
  883.             "Programme, wie z.B. den 'getty' verwenden, die "
  884.             "permanent die serielle Schnittstelle blockieren.\n"
  885.             "In solch einem Fall erlaubt die 'OwnDevUnit'-Library "
  886.             "es DFA, der fremden Applikation 'mitzuteilen', daß "
  887.             "DFA die serielle Schnittstelle verwenden möchte. Falls die "
  888.             "serielle Schnittstelle nicht gerade z.B. Daten "
  889.             "überträgt, kann DFA die serielle Schnittstelle "
  890.             "zum Anwählen verwenden und sie 'zurückgeben', "
  891.             "sobald die Anwahl beendet ist."
  892.     )
  893. )
  894. (set #msg-odudest-prompt    "Wählen Sie einen Platz für die 'OwnDevUnit'-Library")
  895. (set #msg-odudest-help "")
  896. (set #msg-iodu-prompt    "Installiere die 'OwnDevUnit'-Library...")
  897.  
  898. (set #msg-tooltypes-msg
  899.     (cat    "Jetzt werden einige Tooltypes gesetzt:\n\n"
  900.             "* In DFA:       - Der Pfad des DFA-Editor Programms \n\n"
  901.             "* Im DFAEditor: - Der Pfad des DFA-Prefs Programms  \n"
  902.             "                - Der Pfad der Online-Hilfe-Datei   \n\n"
  903.             "* in DFAPrefs:  - Der Pfad der Online-Hilfe-Datei   \n\n"
  904.             "Alle Icon Positionen werden zurückgesetzt."
  905.     )
  906. )
  907.  
  908. (set #msg-end1-msg    "Das DFA-Server-Programm (DFA) kann in\n%s gefunden werden\n")
  909. (set #msg-end2-msg    "Der DFA-Editor ist in %s\n")
  910. (set #msg-end3-msg    "und das DFA-Prefs-Programm wurde nach\n%s kopiert.\n")
  911.  
  912. (set #msg-exit-msg    "\nViel Spaß bei der Verwendung von DFA\n (und denken Sie daran: Es ist SHAREWARE)")
  913.  
  914. )
  915. )
  916.  
  917. (transcript #msg-transcript-msg)
  918.  
  919.     ; *****************************
  920.     ; Try to uninstall DFA V1.x/2.0
  921.     ; *****************************
  922.  
  923.     ;
  924.     ; Is an old DFA (V[12].x) present?
  925.     ;
  926.  
  927. (if (OR (exists "ENV:DFA/DFA.prefs")
  928.         (exists "SYS:WBStartup/DFA")
  929.         (exists "Locale:Catalogs/deutsch/dfa.catalog" (noreq))
  930.         (exists "Locale:Catalogs/françois/dfa.catalog" (noreq))
  931.         (exists "DFA:Prefs/Installation" (noreq)))
  932.     (
  933.         (if (askbool
  934.             (prompt    #msg-olddfa-prompt )
  935.             (help    #msg-olddfa-help )
  936.             )
  937.             (
  938.                 ;
  939.                 ; >= V2.2 -> Use formerly generated CLI scripts
  940.                 ;
  941.  
  942.                 (if (exists "DFA:Prefs/Installation/U_DFADir" (noreq))
  943.                     (
  944.                         ;
  945.                         ; Ask for uninstallation details...
  946.                         ;
  947.  
  948.                         (set uninstall
  949.                             (askoptions
  950.                                 (prompt #msg-uninstall-prompt)
  951.                                 (choices    #msg-udfaexe-choice
  952.                                             #msg-udfadoc-choice
  953.                                             #msg-udfarexx-choice
  954.                                             #msg-udfareadme-choice
  955.                                             #msg-udfaodu-choice
  956.                                             #msg-udirtree-choice
  957.                                 )
  958.                                 (help    #msg-uninstall-help )
  959.                                 (default -1)
  960.                             )
  961.                         )
  962.  
  963.                         (if (IN uninstall 0)
  964.                             (
  965.                                 (message    #msg-udfaexe-msg)
  966.  
  967.                                 (run "execute DFA:Prefs/Installation/U_DFABinaries")
  968.  
  969.                                 (run "delete DFA:Prefs/Installation/U_DFABinaries")
  970.  
  971.                                 ; Now deinstall default executables...
  972.  
  973.                                 (run "delete " (tackon "DFA:C" "Registration"))
  974.                                 (run "delete " (tackon "DFA:C" "Registration.info"))
  975.  
  976.                                 (run "delete " (tackon "DFA:C" "ClickForColors"))
  977.                                 (run "delete " (tackon "DFA:C" "ClickForColors.info"))
  978.                             )
  979.                         )
  980.  
  981.                         (if (IN uninstall 1)
  982.                             (
  983.                                 (message #msg-udfadoc-msg)
  984.  
  985.                                 (run "execute DFA:Prefs/Installation/U_DFADocs")
  986.  
  987.                                 (run "delete DFA:Prefs/Installation/U_DFADocs")
  988.                             )
  989.                         )
  990.  
  991.                         (if (IN uninstall 2)
  992.                             (
  993.                                 (message #msg-udfarexx-msg )
  994.  
  995.                                 (run "execute DFA:Prefs/Installation/U_DFARexx")
  996.  
  997.                                 (run "delete DFA:Prefs/Installation/U_DFARexx")
  998.                             )
  999.                         )
  1000.  
  1001.                         (if (IN uninstall 3)
  1002.                             (
  1003.                                 (message #msg-udfareadme-msg )
  1004.  
  1005.                                 (if (exists "DFA:Important!")
  1006.                                     (
  1007.                                         (run "delete DFA:Important! ALL")
  1008.                                     )
  1009.                                 )
  1010.  
  1011.                                 (if (exists "DFA:Wichtig!")
  1012.                                     (
  1013.                                         (run "delete DFA:Wichtig! ALL")
  1014.                                     )
  1015.                                 )
  1016.                             )
  1017.                         )
  1018.  
  1019.                         (if (IN uninstall 4)
  1020.                             (
  1021.                                 (message #msg-udfaodu-msg)
  1022.  
  1023.                                 (run "execute DFA:Prefs/Installation/U_ODULib")
  1024.  
  1025.                                 (run "delete DFA:Prefs/Installation/U_ODULib")
  1026.                             )
  1027.                         )
  1028.  
  1029.                         (if (IN uninstall 5)
  1030.                             (
  1031.                                 (message #msg-udirtree-msg )
  1032.  
  1033.                                 (run "delete DFA:C")
  1034.                                 (run "delete DFA:Tools")
  1035.                                 (run "delete DFA:Documentation")
  1036.                                 (run "delete DFA:Libs")
  1037.                                 (run "delete DFA:Rexx")
  1038.                                 (run "delete DFA:Wichtig!")
  1039.                                 (run "delete DFA:Important!")
  1040.                             )
  1041.                         )
  1042.                     )
  1043.                     (
  1044.                         ;
  1045.                         ; Uninstall DFA  <= V2.2
  1046.                         ;
  1047.  
  1048.                             ; Remove DFA V2.0 executables...
  1049.  
  1050.                         (if (exists "SYS:WBStartup/DFA")
  1051.                             (
  1052.                                 ;
  1053.                                 ; Delete DFA executable
  1054.                                 ;
  1055.  
  1056.                                 (working #msg-udfa1xexe-working)
  1057.  
  1058.                                 (run "delete SYS:WBStartup/DFA")
  1059.                                 (run "delete SYS:WBStartup/DFA.info")
  1060.                             )
  1061.                         )
  1062.  
  1063.                         (if (exists "Libs:dfa.library")
  1064.                             (
  1065.                                 ;
  1066.                                 ; Delete DFA library
  1067.                                 ;
  1068.  
  1069.                                 (working #msg-udfa20lib-working)
  1070.  
  1071.                                 (run "delete Libs:dfa.library")
  1072.                             )
  1073.                         )
  1074.  
  1075.                         (if (exists "SYS:Prefs/DFAPrefs")
  1076.                             (
  1077.                                 ;
  1078.                                 ; Delete DFA executable
  1079.                                 ;
  1080.  
  1081.                                 (working #msg-udfa20prf-working)
  1082.  
  1083.                                 (run "delete SYS:Prefs/DFAPrefs")
  1084.                                 (run "delete SYS:Prefs/DFAPrefs.info")
  1085.                             )
  1086.                         )
  1087.  
  1088.                         (message    #msg-udfawarn-msg )
  1089.  
  1090.                     )
  1091.                 )
  1092.  
  1093.                     ; All version uninstalling...
  1094.  
  1095.                 (if (NOT (= (getassign "Locale") ""))
  1096.                     (
  1097.                         ;
  1098.                         ; Delete locale catalogs
  1099.                         ;
  1100.  
  1101.                         (working #msg-udfa1xcat-working)
  1102.  
  1103.                         (run "delete Locale:Catalogs/dansk/dfa.catalog")
  1104.                         (run "delete Locale:Catalogs/deutsch/dfa.catalog")
  1105.                         (run "delete Locale:Catalogs/italiano/dfa.catalog")
  1106.                         (run "delete Locale:Catalogs/nederlands/dfa.catalog")
  1107.                         (run "delete Locale:Catalogs/suomi/dfa.catalog")
  1108.                         (run "delete Locale:Catalogs/svenska/dfa.catalog")
  1109.  
  1110.                         (working #msg-udfa20cat-working)
  1111.  
  1112.                         (run "delete Locale:Catalogs/deutsch/dfa.catalog")
  1113.                         (run "delete Locale:Catalogs/deutsch/dfalib.catalog")
  1114.                         (run "delete Locale:Catalogs/deutsch/dfaprefs.catalog")
  1115.                         (run "delete Locale:Catalogs/deutsch/dfaeditor.catalog")
  1116.  
  1117.                         (run "delete Locale:Catalogs/françois/dfa.catalog")
  1118.                         (run "delete Locale:Catalogs/françois/dfalib.catalog")
  1119.                         (run "delete Locale:Catalogs/françois/dfaprefs.catalog")
  1120.                         (run "delete Locale:Catalogs/françois/dfaeditor.catalog")
  1121.  
  1122.                     )
  1123.                 )
  1124.  
  1125.                 (if (exists "ENV:DFA/DFA.prefs")
  1126.                     (
  1127.                         ;
  1128.                         ; Delete prefs
  1129.                         ;
  1130.  
  1131.                         (if (askbool
  1132.                                 (prompt    #msg-uprefsfile-prompt)
  1133.                                 (help    #msg-uprefsfile-help)
  1134.                             )
  1135.                             (
  1136.                                 (working #msg-uprefsfile-working )
  1137.  
  1138.                                 (run "delete ENV:DFA/DFA.prefs")
  1139.                                 (run "delete ENVARC:DFA/DFA.prefs")
  1140.                             )
  1141.                         )
  1142.                     )
  1143.                 )
  1144.             )
  1145.         )
  1146.     )
  1147.     (
  1148.         (message #msg-nodfa-msg )
  1149.     )
  1150. )
  1151.  
  1152. (complete 0)
  1153.  
  1154. (message    #msg-dfashare-msg )
  1155.  
  1156. (set DFAdir
  1157.     (askdir
  1158.         (prompt #msg-dfadest-prompt )
  1159.         (default "Work:")
  1160.         (help    #msg-dfadest-help)
  1161.     )
  1162. )
  1163.  
  1164.     ; Check if Directory is already named DFA
  1165.  
  1166. (if (= (fileonly DFADir) "DFA")
  1167.     (
  1168.         (set MakeDFADir
  1169.             (askbool
  1170.                 (prompt    #msg-mkdfadir-prompt)
  1171.                 (help    #msg-mkdfadir-help )
  1172.  
  1173.                 (default 1)
  1174.             )
  1175.         )
  1176.  
  1177.         (if (= MakeDFADir 1)
  1178.             (
  1179.                     ; Use existing directory
  1180.  
  1181.                 (set DFADir (pathonly DFADir))
  1182.  
  1183.                 (message #msg-installto-msg (tackon DFADir "DFA"))
  1184.  
  1185.             )
  1186.             (
  1187.  
  1188.                     ; DFA Directory has to be created...
  1189.  
  1190.                 (message #msg-installto-msg (tackon DFADir "DFA"))
  1191.  
  1192.                 (makedir (tackon DFAdir "DFA")
  1193.                     (infos)
  1194.                 )
  1195.             )
  1196.         )
  1197.  
  1198.  
  1199.     )
  1200.     (
  1201.         ; DFA Directory has to be created...
  1202.  
  1203.         (makedir (tackon DFAdir "DFA")
  1204.             (infos)
  1205.         )
  1206.     )
  1207.  
  1208. )
  1209.  
  1210. (working #msg-setdirtree-working)
  1211.  
  1212. (makeassign "DFA" (tackon DFAdir "DFA"))
  1213.  
  1214. (makedir "DFA:Rexx"
  1215.     (infos)
  1216. )
  1217. (makedir "DFA:C"
  1218.     (infos)
  1219. )
  1220. (makedir "DFA:Tools"
  1221.     (infos)
  1222. )
  1223. (makedir "DFA:Prefs"
  1224.     (infos)
  1225. )
  1226.  
  1227.     ; The following directory is meant for storing the deinstallation
  1228.     ; scripts for the binaries, docs etc.
  1229.  
  1230. (makedir "DFA:Prefs/installation")
  1231.  
  1232. (makedir "DFA:Libs"
  1233.     (infos)
  1234. )
  1235. (makedir "DFA:Documentation"
  1236.     (infos)
  1237. )
  1238. (makedir "DFA:AddressFiles"
  1239.     (infos)
  1240. )
  1241.  
  1242.     ; Write DFA dir...
  1243.  
  1244. (run "echo delete " (tackon DFAdir "DFA") " > DFA:Prefs/installation/U_DFADir" )
  1245. (run "protect DFA:Prefs/installation/U_DFADir s add")
  1246.  
  1247. (complete 5)
  1248.  
  1249. (set ImageDrawers
  1250.     (askbool
  1251.         (prompt    #msg-imgdrawers-prompt)
  1252.         (help    #msg-imgdrawers-help)
  1253.         (default 1)
  1254.     )
  1255. )
  1256.  
  1257. (if (= ImageDrawers 1)
  1258.     (
  1259.         (copyfiles
  1260.             (prompt    #msg-imgdrawers-prompt)
  1261.             (source "/DFA.info")
  1262.             (dest DFAdir)
  1263.         )
  1264.  
  1265.         (copyfiles
  1266.             (prompt    #msg-imgdrawers-prompt)
  1267.             (source "/AddressFiles.info")
  1268.             (dest "DFA:")
  1269.         )
  1270.  
  1271.         (copyfiles
  1272.             (prompt    #msg-imgdrawers-prompt)
  1273.             (source "/Tools.info")
  1274.             (dest "DFA:")
  1275.         )
  1276.  
  1277.         (copyfiles
  1278.             (prompt    #msg-imgdrawers-prompt)
  1279.             (source "/Documentation.info")
  1280.             (dest "DFA:")
  1281.         )
  1282.  
  1283.         (run "ram:lhx e /MagicWB/MagicWBIcons.lha Rexx.info Libs.info Prefs.info DFA:")
  1284.     )
  1285. )
  1286.  
  1287. (run "assign Libs: DFA:Libs ADD")
  1288.  
  1289. (complete 10)
  1290.  
  1291. (startup "DFA"
  1292.     ( command    "assign DFA: " (tackon DFAdir "DFA") "\n")
  1293.     ( command    "assign Libs: DFA:Libs ADD")
  1294.     ( prompt    #msg-startup-prompt)
  1295.     ( help        #msg-startup-help)
  1296. )
  1297.  
  1298. (complete 12)
  1299.  
  1300.     ;
  1301.     ; Copying default programs...
  1302.     ;
  1303.  
  1304. (copyfiles
  1305.     (prompt    #msg-defexe-prompt)
  1306.     (source "/Registration")
  1307.     (dest "DFA:C")
  1308.     (infos)
  1309. )
  1310.  
  1311. (copyfiles
  1312.     (prompt    #msg-defexe-prompt)
  1313.     (source "/Tools/CheckBirthday")
  1314.     (dest "DFA:Tools")
  1315.     (infos)
  1316. )
  1317.  
  1318. (copyfiles
  1319.     (prompt    #msg-defexe-prompt)
  1320.     (source "/ClickForColors")
  1321.     (dest "DFA:C")
  1322.     (infos)
  1323. )
  1324.  
  1325. (set @default-dest "DFA:")
  1326.  
  1327. (complete 15)
  1328.  
  1329. ;
  1330. ; Set the dir and archive name for the binaries
  1331. ;
  1332.  
  1333. (set bindir "/DFA/")
  1334. (set binarchive "/DFA/DFA-22.lha")
  1335.  
  1336.  
  1337.     ; ************************
  1338.     ; Install the DFA - Server
  1339.     ; ************************
  1340.  
  1341.     ;
  1342.     ; Select destination drawer
  1343.     ;
  1344.  
  1345. (set serverdest
  1346.     (askdir
  1347.         (prompt #msg-serverdest-prompt)
  1348.         (help    #msg-serverdest-help)
  1349.         (default "SYS:WBStartup")
  1350.     )
  1351. )
  1352.  
  1353.     ;
  1354.     ; Extract executable from archive
  1355.     ;
  1356.  
  1357. (working #msg-xserver-working)
  1358.  
  1359. (set cmdstring (cat "ram:lhx e " binarchive))
  1360. (set cmdstring (cat cmdstring " DFA RAM:"))
  1361.  
  1362.     ;
  1363.     ; ...and execute it
  1364.     ;
  1365.  
  1366. (run cmdstring)
  1367.  
  1368. (run "ram:lhx e /MagicWB/MagicWBIcons.lha DFA.info RAM:")
  1369.  
  1370.     ;
  1371.     ; Copy file and .info
  1372.     ;
  1373.  
  1374. (copylib
  1375.     (prompt    #msg-iserver-prompt)
  1376.     (help    @copylib-help)
  1377.     (source    "RAM:DFA")
  1378.     (dest    serverdest)
  1379.     (infos)
  1380. )
  1381.  
  1382. (run "Delete RAM:DFA")
  1383. (run "Delete RAM:DFA.info")
  1384.  
  1385. (run "echo delete " (tackon serverdest "DFA") " > DFA:Prefs/installation/U_DFABinaries" )
  1386. (run "protect DFA:Prefs/installation/U_DFABinaries s add")
  1387. (run "echo delete " (tackon serverdest "DFA.info") " >> DFA:Prefs/installation/U_DFABinaries" )
  1388.  
  1389. (complete 20)
  1390.  
  1391.  
  1392.     ; ************************
  1393.     ; Install the DFA - Editor
  1394.     ; ************************
  1395.  
  1396.     ;
  1397.     ; Select destination drawer
  1398.     ;
  1399.  
  1400. (set editordest
  1401.     (askdir
  1402.         (prompt #msg-editordest-prompt)
  1403.         (help    #msg-editordest-help )
  1404.         (default "DFA:C")
  1405.     )
  1406. )
  1407.  
  1408.     ;
  1409.     ; Extract executable from archive
  1410.     ;
  1411.  
  1412. (working #msg-xeditor-working)
  1413.  
  1414. (set cmdstring (cat "ram:lhx e " binarchive))
  1415. (set cmdstring (cat cmdstring " DFAEditor RAM:"))
  1416.  
  1417. (run cmdstring)
  1418.  
  1419. (run "ram:lhx e /MagicWB/MagicWBIcons.lha DFAEditor.info RAM:")
  1420.  
  1421.     ;
  1422.     ; Copy file
  1423.     ;
  1424.  
  1425. (copylib
  1426.     (prompt    #msg-ieditor-prompt)
  1427.     (help    @copylib-help)
  1428.     (source    "RAM:DFAEditor")
  1429.     (dest    editordest)
  1430.     (infos)
  1431. )
  1432.  
  1433. (run "Delete RAM:DFAEditor")
  1434. (run "Delete RAM:DFAEditor.info")
  1435.  
  1436. (run "echo delete " (tackon editordest "DFAEditor") " >> DFA:Prefs/installation/U_DFABinaries" )
  1437. (run "echo delete " (tackon editordest "DFAEditor.info") " >> DFA:Prefs/installation/U_DFABinaries" )
  1438.  
  1439. (complete 25)
  1440.  
  1441.     ; ***************************************
  1442.     ; Install the DFA - Preferences - Program
  1443.     ; ***************************************
  1444.  
  1445.     ;
  1446.     ; Select destination drawer
  1447.     ;
  1448.  
  1449.  
  1450. (set prefsdest
  1451.     (askdir
  1452.         (prompt #msg-prefsdest-prompt)
  1453.         (help    #msg-prefsdest-help)
  1454.         (default "DFA:Prefs")
  1455.     )
  1456. )
  1457.  
  1458.     ;
  1459.     ; Extract executable from archive
  1460.     ;
  1461.  
  1462. (working #msg-xprefs-working)
  1463.  
  1464. (set cmdstring (cat "ram:lhx e " binarchive))
  1465. (set cmdstring (cat cmdstring " DFAPrefs RAM:"))
  1466.  
  1467. (run cmdstring)
  1468.  
  1469. (run "ram:lhx e /MagicWB/MagicWBIcons.lha DFAPrefs.info RAM:")
  1470.  
  1471.     ;
  1472.     ; Copy file
  1473.     ;
  1474.  
  1475. (copylib
  1476.     (prompt    #msg-iprefs-prompt)
  1477.     (help    @copylib-help)
  1478.     (source    "RAM:DFAPrefs")
  1479.     (dest    prefsdest)
  1480.     (infos)
  1481. )
  1482.  
  1483. (run "Delete RAM:DFAPrefs")
  1484. (run "Delete RAM:DFAPrefs.info")
  1485.  
  1486. (run "echo delete " (tackon prefsdest "DFAPrefs") " >> DFA:Prefs/installation/U_DFABinaries" )
  1487. (run "echo delete " (tackon prefsdest "DFAPrefs.info") " >> DFA:Prefs/installation/U_DFABinaries" )
  1488.  
  1489. (complete 35)
  1490.  
  1491.     ; *************************
  1492.     ; Install the DFA - Library
  1493.     ; *************************
  1494.  
  1495.     ;
  1496.     ; Select destination drawer
  1497.     ;
  1498.  
  1499. (set libdest
  1500.     (askdir
  1501.         (prompt    #msg-libdest-prompt)
  1502.         (help    #msg-libdest-help)
  1503.         (default "DFA:Libs")
  1504.     )
  1505. )
  1506.  
  1507.     ;
  1508.     ; Extract executable from archive
  1509.     ;
  1510.  
  1511. (working #msg-xlib-working)
  1512.  
  1513. (set cmdstring (cat "ram:lhx e " binarchive))
  1514. (set cmdstring (cat cmdstring " dfa.library RAM:"))
  1515.  
  1516. (run cmdstring)
  1517.  
  1518. (copylib
  1519.     (prompt    #msg-ilib-prompt)
  1520.     (help    @copylib-help)
  1521.     (source    "RAM:dfa.library")
  1522.     (dest    libdest)
  1523. )
  1524.  
  1525. (run "Delete RAM:dfa.library")
  1526.  
  1527. (run "echo delete " (tackon libdest "DFA.library") " >> DFA:Prefs/installation/U_DFABinaries" )
  1528.  
  1529. (complete 40)
  1530.  
  1531.     ; ********************
  1532.     ; Install Locale files
  1533.     ; ********************
  1534.  
  1535.     ;
  1536.     ; Locale: drawer present ?
  1537.     ;
  1538.  
  1539. (if (AND (NOT (= (getassign "Locale") "")) (exists "libs:locale.library"))
  1540.     (
  1541.         ;
  1542.         ; Select language(s)
  1543.         ;
  1544.  
  1545.         (set language
  1546.             (askoptions
  1547.                 (prompt #msg-locale-prompt)
  1548.                 (help    #msg-locale-help)
  1549.                 (choices    "Deutsch"
  1550.                             "Français"
  1551.                 )
  1552.             )
  1553.         )
  1554.  
  1555.         ;
  1556.         ; Copy catalogs
  1557.         ;
  1558.  
  1559.         (if (IN language 0)
  1560.             (
  1561.                     ;
  1562.                     ; German catalogs
  1563.                     ;
  1564.  
  1565.                 (working #msg-xlocale-ger-working)
  1566.  
  1567.                 (if (NOT (exists "Locale:Catalogs"))
  1568.                 (
  1569.                     (run "MakeDir Locale:Catalogs" )
  1570.                 )
  1571.                 )
  1572.  
  1573.                 (if (NOT (exists "Locale:Catalogs/deutsch"))
  1574.                 (
  1575.                     (run "MakeDir Locale:Catalogs/deutsch" )
  1576.                 )
  1577.                 )
  1578.  
  1579.                     ; NB: catalogs already stored with subpath /deutsch/*.catalog !
  1580.  
  1581.                 (run "ram:lhx e /Locale/Catalogs/deutsch/Catalogs.lha Locale:Catalogs/")
  1582.  
  1583.             )
  1584.             (
  1585.                 (if (exists "Locale:Catalogs/deutsch/DFA.catalog")
  1586.                 (
  1587.                     (working #msg-ulocale-ger-working)
  1588.  
  1589.                     (run "delete Locale:Catalogs/deutsch/DFA.catalog")
  1590.                     (run "delete Locale:Catalogs/deutsch/DFALib.catalog")
  1591.                     (run "delete Locale:Catalogs/deutsch/DFAEditor.catalog")
  1592.                     (run "delete Locale:Catalogs/deutsch/DFAPrefs.catalog")
  1593.  
  1594.                 )
  1595.                 )
  1596.  
  1597.             )
  1598.         )
  1599.  
  1600.         (if (IN language 1)
  1601.             (
  1602.                     ;
  1603.                     ; French catalogs
  1604.                     ;
  1605.  
  1606.                 (working #msg-xlocale-fre-working)
  1607.  
  1608.                 (if (NOT (exists "Locale:Catalogs"))
  1609.                 (
  1610.                     (run "MakeDir Locale:Catalogs" )
  1611.                 )
  1612.                 )
  1613.  
  1614.                 (if (NOT (exists "Locale:Catalogs/français"))
  1615.                 (
  1616.                     (run "MakeDir Locale:Catalogs/français" )
  1617.                 )
  1618.                 )
  1619.  
  1620.                     ; NB: catalogs already stored with subpath /français/*.catalog !
  1621.  
  1622.                 (run "ram:lhx e /Locale/Catalogs/français/Catalogs.lha Locale:Catalogs/")
  1623.  
  1624.             )
  1625.             (
  1626.                 (if (exists "Locale:Catalogs/français/DFA.catalog")
  1627.                 (
  1628.                     (working #msg-ulocale-fre-working)
  1629.  
  1630.                     (run "delete Locale:Catalogs/français/DFA.catalog")
  1631.                     (run "delete Locale:Catalogs/français/DFALib.catalog")
  1632.                     (run "delete Locale:Catalogs/français/DFAEditor.catalog")
  1633.                     (run "delete Locale:Catalogs/français/DFAPrefs.catalog")
  1634.                 )
  1635.                 )
  1636.  
  1637.             )
  1638.         )
  1639.     )
  1640. )
  1641.  
  1642. (complete 50)
  1643.  
  1644.     ; *********************************
  1645.     ; Install the example arexx scripts
  1646.     ; *********************************
  1647.  
  1648. (set installrexx
  1649.     (askbool
  1650.         (prompt    #msg-arexx-prompt)
  1651.         (help    #msg-arexx-help)
  1652.         (default 0)
  1653.     )
  1654. )
  1655.  
  1656. (if (= installrexx 1)
  1657.     (
  1658.         (set rexxdest
  1659.             (askdir
  1660.                 (prompt #msg-arexxdest-prompt)
  1661.                 (help    #msg-arexxdest-help)
  1662.                 (default "DFA:Rexx")
  1663.             )
  1664.         )
  1665.  
  1666.         (working #msg-xarexx-working)
  1667.  
  1668.         (if (AND (NOT (= (substr rexxdest (- (strlen rexxdest) 1 ) 1 ) ":" ))
  1669.                 (NOT (= (substr rexxdest (- (strlen rexxdest) 1 ) 1 ) "/" )))
  1670.             (
  1671.                     ;
  1672.                     ; Destination ends not in ":" or "/", append "/"
  1673.                     ;
  1674.  
  1675.                 (set rexxdest (cat rexxdest "/"))
  1676.             )
  1677.         )
  1678.  
  1679.         (set cmdstring (cat "ram:lhx e -t " "/Rexx/ArexxScripts.lha "))
  1680.         (set cmdstring (cat cmdstring rexxdest))
  1681.  
  1682.         (run cmdstring)
  1683.  
  1684.         (run "echo delete " (tackon rexxdest "ArexxErrorCodes.include") " > DFA:Prefs/installation/U_DFARexx" )
  1685.  
  1686.         (run "protect DFA:Prefs/installation/U_DFARexx s add")
  1687.  
  1688.         (run "echo delete " (tackon rexxdest "Call.rexx") " >> DFA:Prefs/installation/U_DFARexx" )
  1689.         (run "echo delete " (tackon rexxdest "DoCall.dfa") " >> DFA:Prefs/installation/U_DFARexx" )
  1690.         (run "echo delete " (tackon rexxdest "email.dfa") " >> DFA:Prefs/installation/U_DFARexx" )
  1691.         (run "echo delete " (tackon rexxdest "export_bt_ii.dfa") " >> DFA:Prefs/installation/U_DFARexx" )
  1692.         (run "echo delete " (tackon rexxdest "export_dfa.dfa") " >> DFA:Prefs/installation/U_DFARexx" )
  1693.         (run "echo delete " (tackon rexxdest "export_tex.dfa") " >> DFA:Prefs/installation/U_DFARexx" )
  1694.         (run "echo delete " (tackon rexxdest "importadm.dfa") " >> DFA:Prefs/installation/U_DFARexx" )
  1695.         (run "echo delete " (tackon rexxdest "insert_adr.ced") " >> DFA:Prefs/installation/U_DFARexx" )
  1696.         (run "echo delete " (tackon rexxdest "insert_adrletter.ced") " >> DFA:Prefs/installation/U_DFARexx" )
  1697.         (run "echo delete " (tackon rexxdest "insert_texadr.ced") " >> DFA:Prefs/installation/U_DFARexx" )
  1698.         (run "echo delete " (tackon rexxdest "LetterHead.txt") " >> DFA:Prefs/installation/U_DFARexx" )
  1699.         (run "echo delete " (tackon rexxdest "makephonelist.ced") " >> DFA:Prefs/installation/U_DFARexx" )
  1700.         (run "echo delete " (tackon rexxdest "printlaserlabels.dfa") " >> DFA:Prefs/installation/U_DFARexx" )
  1701.         (run "echo delete " (tackon rexxdest "RemindBirthday.rexx") " >> DFA:Prefs/installation/U_DFARexx" )
  1702.         (run "echo delete " (tackon rexxdest "TeXAddressList.dfa") " >> DFA:Prefs/installation/U_DFARexx" )
  1703.     )
  1704. )
  1705.  
  1706. (complete 60)
  1707.  
  1708.     ; ****************************************************
  1709.     ; Copy Keyfile, if available (registered version only)
  1710.     ; ****************************************************
  1711.  
  1712. (if (exists "/s/DFA.key")
  1713.     (
  1714.         (set keydest
  1715.             (askdir
  1716.                 (prompt #msg-keydest-prompt)
  1717.                 (default "S:")
  1718.                 (help    #msg-keydest-help)
  1719.             )
  1720.         )
  1721.  
  1722.         (set error
  1723.             (trap 4
  1724.                 (copyfiles
  1725.                     (source "/S/DFA.key")
  1726.                     (dest keydest)
  1727.                     (prompt #msg-ikeyfile-prompt)
  1728.                 )
  1729.             )
  1730.         )
  1731.  
  1732.         (if (> error 0)
  1733.             (message (#msg-doserror-msg @ioerr))
  1734.         )
  1735.     )
  1736.  
  1737.     (if (NOT (= keydest "s:")) || (NOT (= keydest "S:"))
  1738.         (
  1739.             (working #msg-setkeypath-working)
  1740.  
  1741.             (run setenv "KEYPATH" keydest)
  1742.             (run copy "Env:KEYPATH" "EnvArc:")
  1743.  
  1744.         )
  1745.     )
  1746. )
  1747.  
  1748. (complete 63)
  1749.  
  1750.     ; ********************************
  1751.     ; Install the default address file
  1752.     ; ********************************
  1753.     ;
  1754.     ; V2.2: s:adr.file -> DFA:AddressFiles/default.dfa
  1755.  
  1756. (set installadrfile
  1757.     (askbool
  1758.         (prompt    #msg-iadrfile-prompt)
  1759.         (help    #msg-iadrfile-help)
  1760.     )
  1761. )
  1762.  
  1763. (if (= installadrfile 1)
  1764.     (
  1765.         (if (exists "DFA:AddressFiles/default.dfa")
  1766.             (
  1767.                 (if (askbool
  1768.                         (prompt #msg-adrfileconfirm-prompt)
  1769.                         (help "" )
  1770.                     )
  1771.                     (
  1772.                         (set error
  1773.                             (trap 4
  1774.                                 (copyfiles (source "/AddressFiles/default.dfa") (dest "DFA:AddressFiles") (infos) )
  1775.                             )
  1776.                         )
  1777.  
  1778.                         (if (> error 0)
  1779.                             (message (#msg-doserror-msg @ioerr))
  1780.                         )
  1781.                     )
  1782.                 )
  1783.             )
  1784.             (
  1785.                 (set error
  1786.                     (trap 4
  1787.                         (copyfiles (source "/AddressFiles/default.dfa") (dest "DFA:AddressFiles") (infos) )
  1788.                     )
  1789.                 )
  1790.  
  1791.                 (if (> error 0)
  1792.                     (message (#msg-doserror-msg @ioerr))
  1793.                 )
  1794.             )
  1795.         )
  1796.     )
  1797. )
  1798.  
  1799. (complete 65)
  1800.  
  1801.     ; *************************
  1802.     ; Install the documentation
  1803.     ; *************************
  1804.  
  1805.     ;
  1806.     ; Get doc language
  1807.     ;
  1808.  
  1809. (set doclanguage
  1810.     (askchoice
  1811.         (prompt #msg-doclang-prompt)
  1812.         (help    #msg-doclang-help)
  1813.         (choices    #msg-doclang-eng-choice
  1814.                     #msg-doclang-ger-choice
  1815.         )
  1816.         (default 0)
  1817.     )
  1818. )
  1819.  
  1820.     ;
  1821.     ; Set documentation source directory
  1822.     ;
  1823.  
  1824. (if (= doclanguage 0)
  1825.     (
  1826.             ;
  1827.             ; English documentation
  1828.             ;
  1829.  
  1830.         (set docsource "/Documentation/english/")
  1831.  
  1832.         (makedir "DFA:Important!"
  1833.             (infos)
  1834.         )
  1835.  
  1836.         (if (= ImageDrawers 1)
  1837.             (
  1838.                 (copyfiles
  1839.                     (prompt    #msg-imgdrawers-prompt)
  1840.                     (source "/Important!.info")
  1841.                     (dest "DFA:")
  1842.                 )
  1843.             )
  1844.         )
  1845.  
  1846.         (copyfiles
  1847.             (prompt    #msg-ireadme-prompt)
  1848.             (source "/Important!")
  1849.             (dest "DFA:Important!")
  1850.             (all)
  1851.             (infos)
  1852.         )
  1853.  
  1854.         (tooltype (dest "DFA:Important!") (noposition))
  1855.  
  1856.     )
  1857.     (
  1858.         ;
  1859.         ; German documentation
  1860.         ;
  1861.  
  1862.         (set docsource "/Documentation/deutsch/")
  1863.  
  1864.         (makedir "DFA:Wichtig!"
  1865.             (infos)
  1866.         )
  1867.  
  1868.         (if (= ImageDrawers 1)
  1869.             (
  1870.                 (copyfiles
  1871.                     (prompt    #msg-imgdrawers-prompt)
  1872.                     (source "/Wichtig!.info")
  1873.                     (dest "DFA:")
  1874.                 )
  1875.             )
  1876.         )
  1877.  
  1878.         (copyfiles
  1879.             (prompt    #msg-ireadme-prompt)
  1880.             (source "/Wichtig!")
  1881.             (dest "DFA:Wichtig!")
  1882.             (all)
  1883.             (infos)
  1884.         )
  1885.  
  1886.         (tooltype (dest "DFA:Wichtig!") (noposition))
  1887.     )
  1888. )
  1889.  
  1890.     ;
  1891.     ; Part(s) of the documentation to be installed
  1892.     ;
  1893.  
  1894. (set docparts
  1895.     (askoptions
  1896.         (prompt    #msg-docparts-prompt)
  1897.         (help    #msg-docparts-help)
  1898.         (choices    #msg-docparts-ag-choice
  1899.                     #msg-docparts-tex-choice
  1900.         )
  1901.     )
  1902. )
  1903.  
  1904.     ;
  1905.     ; AmigaGuide documentation
  1906.     ;
  1907.  
  1908. (if (IN docparts 0)
  1909.     (
  1910.         (set guidedocdest
  1911.             (askdir
  1912.                 (prompt #msg-agdocdest-prompt)
  1913.                 (help    #msg-agdocdest-help)
  1914.                 (default "DFA:Documentation")
  1915.             )
  1916.         )
  1917.  
  1918.         (working #msg-xag-working)
  1919.  
  1920.         (if (AND (NOT (= (substr guidedocdest (- (strlen guidedocdest) 1 ) 1 ) ":" ))
  1921.             (NOT (= (substr guidedocdest (- (strlen guidedocdest) 1 ) 1 ) "/" )))
  1922.             (
  1923.                     ;
  1924.                     ; Destination ends not in ":" or "/", append "/"
  1925.                     ;
  1926.  
  1927.                 (set guidedocdest (cat guidedocdest "/"))
  1928.             )
  1929.         )
  1930.  
  1931.         (set cmdstring (cat "ram:lhx e " (tackon docsource "Documentation.lha" )))
  1932.         (set cmdstring (cat cmdstring " DFA.guide %s"))
  1933.  
  1934.         (run cmdstring guidedocdest)
  1935.  
  1936.         (run (cat "ram:lhx e /MagicWB/MagicWBIcons.lha DFA.guide.info " guidedocdest))
  1937.  
  1938.         (tooltype (dest (tackon guidedocdest "DFA.guide")) (noposition))
  1939.  
  1940.         (run "echo delete " (tackon guidedocdest "DFA.guide") " > DFA:Prefs/installation/U_DFADocs" )
  1941.         (run "protect DFA:Prefs/installation/U_DFADocs s add")
  1942.         (run "echo delete " (tackon guidedocdest "DFA.guide.info") " >> DFA:Prefs/installation/U_DFADocs" )
  1943.  
  1944.     )
  1945. )
  1946.  
  1947. (complete 72)
  1948.  
  1949.     ;
  1950.     ; TeX documentation - DVI file
  1951.     ;
  1952.  
  1953.  
  1954. (if (IN docparts 1)
  1955.     (
  1956.         (set texdocdest
  1957.             (askdir
  1958.                 (prompt #msg-texdocdest-prompt)
  1959.                 (help    #msg-texdocdest-help)
  1960.                 (default "DFA:Documentation")
  1961.             )
  1962.         )
  1963.  
  1964.         (working #msg-xtex-working)
  1965.  
  1966.         (if (AND (NOT (= (substr texdocdest (- (strlen texdocdest) 1 ) 1 ) ":" ))
  1967.             (NOT (= (substr texdocdest (- (strlen texdocdest) 1 ) 1 ) "/" )))
  1968.             (
  1969.                     ;
  1970.                     ; Destination ends not in ":" or "/", append "/"
  1971.                     ;
  1972.  
  1973.                 (set texdocdest (cat texdocdest "/"))
  1974.             )
  1975.         )
  1976.  
  1977.         (set cmdstring (cat "ram:lhx e " (tackon docsource "Documentation.lha" )))
  1978.         (set cmdstring (cat cmdstring " DFA.dvi %s"))
  1979.  
  1980.         (run cmdstring texdocdest)
  1981.  
  1982.         (run (cat "ram:lhx e /MagicWB/MagicWBIcons.lha DFA.dvi.info " texdocdest))
  1983.  
  1984.         (tooltype (dest (tackon texdocdest "DFA.dvi")) (noposition))
  1985.  
  1986.         (run "echo delete " (tackon guidedocdest "DFA.dvi") " >> DFA:Prefs/installation/U_DFADocs" )
  1987.         (run "echo delete " (tackon guidedocdest "DFA.dvi.info") " >> DFA:Prefs/installation/U_DFADocs" )
  1988.     )
  1989. )
  1990.  
  1991. (complete 80)
  1992.  
  1993.     ; ***********************
  1994.     ; Install the online help
  1995.     ; ***********************
  1996.  
  1997. (set oparts
  1998.     (askchoice
  1999.         (prompt    #msg-oparts-prompt)
  2000.         (help        #msg-oparts-help)
  2001.         (choices    #msg-oparts-bighelp-choice
  2002.                     #msg-oparts-smallhelp-choice
  2003.                     #msg-oparts-nohelp-choice
  2004.         )
  2005.         (default 1)
  2006.     )
  2007. )
  2008.  
  2009.     ;
  2010.     ; The following "exists" command is needed to make
  2011.     ; the installer _NOT_ crash on the HELP _defer_ assign!
  2012.     ;
  2013.  
  2014. (if (exists "HELP:dummy" (noreq))
  2015. (
  2016.     (set dummy "HELP:")
  2017. )
  2018. (
  2019.     (set dummy "DFA:Documentation")
  2020. )
  2021. )
  2022.  
  2023. (if (NOT (= (getassign "Help") ""))
  2024.     (
  2025.         (set DefaultOnlineHelp "Help:")
  2026.     )
  2027.     (
  2028.         (set DefaultOnlineHelp "DFA:Documentation")
  2029.     )
  2030. )
  2031.  
  2032.  
  2033. (if (= oparts 0)
  2034.     (
  2035.             ;
  2036.             ; BIG AmigaGuide file
  2037.             ;
  2038.  
  2039.             ;
  2040.             ; ...already installed ?
  2041.             ;
  2042.  
  2043.         (if (IN docparts 0)
  2044.             (
  2045.                     ;
  2046.                     ; Set both help vars to the main guide file
  2047.                     ;
  2048.  
  2049.                 (set editorhelp (tackon guidedocdest "DFA.guide"))
  2050.                 (set prefshelp (tackon guidedocdest "DFA.guide"))
  2051.             )
  2052.             (
  2053.                     ;
  2054.                     ; Not installed -- do it now
  2055.                     ;
  2056.  
  2057.                 (set guidedocdest
  2058.                     (askdir
  2059.                         (prompt #msg-agdocdest-prompt)
  2060.                         (help    #msg-agdocdest-help)
  2061.                         (default DefaultOnlineHelp)
  2062.                     )
  2063.                 )
  2064.  
  2065.                 (working #msg-xag-working)
  2066.  
  2067.                 (if (AND (NOT (= (substr guidedocdest (- (strlen guidedocdest) 1 ) 1 ) ":" ))
  2068.                     (NOT (= (substr guidedocdest (- (strlen guidedocdest) 1 ) 1 ) "/" )))
  2069.                     (
  2070.                             ;
  2071.                             ; Destination ends not in ":" or "/", append "/"
  2072.                             ;
  2073.  
  2074.                         (set guidedocdest (cat guidedocdest "/"))
  2075.                     )
  2076.                 )
  2077.  
  2078.                 (set cmdstring (cat "ram:lhx e " (tackon docsource "Documentation.lha" )))
  2079.                 (set cmdstring (cat cmdstring " DFA.guide %s"))
  2080.  
  2081.                 (run cmdstring guidedocdest)
  2082.  
  2083.                 (run (cat "ram:lhx e /MagicWB/MagicWBIcons.lha DFA.guide.info " guidedocdest))
  2084.  
  2085.                 (tooltype (dest (tackon guidedocdest "DFA.guide")) (noposition))
  2086.  
  2087.                 (run "echo delete " (tackon guidedocdest "DFA.guide") " >> DFA:Prefs/installation/U_DFADocs" )
  2088.                 (run "echo delete " (tackon guidedocdest "DFA.guide.info") " >> DFA:Prefs/installation/U_DFADocs" )
  2089.  
  2090.                     ;
  2091.                     ; Set both help vars to the main guide file
  2092.                     ;
  2093.  
  2094.                 (set editorhelp (tackon guidedocdest "DFA.guide"))
  2095.                 (set prefshelp (tackon guidedocdest "DFA.guide"))
  2096.  
  2097.             )
  2098.         )
  2099.     )
  2100.     (
  2101.         (if (= oparts 1)
  2102.             (
  2103.                     ;
  2104.                     ; Special ONLINE help files
  2105.                     ;
  2106.  
  2107.                 (if (= doclanguage 0)
  2108.                     (
  2109.                         ;
  2110.                         ; english
  2111.                         ;
  2112.  
  2113.                         (if (exists (tackon DefaultOnlineHelp "English/"))
  2114.                             (
  2115.                                 (set onlinehelpdefdest (tackon DefaultOnlineHelp "English/"))
  2116.                             )
  2117.                             (
  2118.                                 (set onlinehelpdefdest "DFA:Documentation")
  2119.                             )
  2120.                         )
  2121.  
  2122.                     )
  2123.                 )
  2124.  
  2125.                 (if (= doclanguage 1)
  2126.                     (
  2127.                         ;
  2128.                         ; german
  2129.                         ;
  2130.  
  2131.                         (if (exists (tackon DefaultOnlineHelp "Deutsch/"))
  2132.                             (
  2133.                                 (set onlinehelpdefdest (tackon DefaultOnlineHelp "Deutsch/"))
  2134.                             )
  2135.                             (
  2136.                                 (set onlinehelpdefdest "DFA:Documentation")
  2137.                             )
  2138.                         )
  2139.  
  2140.                     )
  2141.                 )
  2142.  
  2143.                 (set onlinehelpdest
  2144.                     (askdir
  2145.                         (prompt #msg-onlinedest-prompt)
  2146.                         (help    #msg-onlinedest-help)
  2147.                         (default onlinehelpdefdest)
  2148.                     )
  2149.                 )
  2150.  
  2151.                 (working #msg-xonline-working)
  2152.  
  2153.                 (if (AND (NOT (= (substr onlinehelpdest (- (strlen onlinehelpdest) 1 ) 1 ) ":" ))
  2154.                     (NOT (= (substr onlinehelpdest (- (strlen onlinehelpdest) 1 ) 1 ) "/" )))
  2155.                     (
  2156.                             ;
  2157.                             ; Destination ends not in ":" or "/", append "/"
  2158.                             ;
  2159.  
  2160.                         (set onlinehelpdest (cat onlinehelpdest "/"))
  2161.                     )
  2162.                 )
  2163.  
  2164.                 (set cmdstring (cat "ram:lhx e " (tackon docsource "Documentation.lha" )))
  2165.                 (set cmdstring (cat cmdstring " DFAEditor.guide %s"))
  2166.  
  2167.                 (run cmdstring onlinehelpdest)
  2168.  
  2169.                 (run (cat "ram:lhx e /MagicWB/MagicWBIcons.lha DFAEditor.guide.info " onlinehelpdest))
  2170.                 (tooltype (dest (tackon onlinehelpdest "DFAEditor.guide")) (noposition))
  2171.  
  2172.                 (run "echo delete " (tackon onlinehelpdest "DFAEditor.guide") " >> DFA:Prefs/installation/U_DFADocs" )
  2173.                 (run "echo delete " (tackon onlinehelpdest "DFAEditor.guide.info") " >> DFA:Prefs/installation/U_DFADocs" )
  2174.  
  2175.                 (set cmdstring (cat "ram:lhx e " (tackon docsource "Documentation.lha" )))
  2176.                 (set cmdstring (cat cmdstring " DFAPrefs.guide %s"))
  2177.  
  2178.                 (run cmdstring onlinehelpdest)
  2179.  
  2180.                 (run (cat "ram:lhx e /MagicWB/MagicWBIcons.lha DFAPrefs.guide.info " onlinehelpdest))
  2181.  
  2182.                 (tooltype (dest (tackon onlinehelpdest "DFAPrefs.guide")) (noposition))
  2183.  
  2184.                 (run "echo delete " (tackon onlinehelpdest "DFAPrefs.guide") " >> DFA:Prefs/installation/U_DFADocs" )
  2185.                 (run "echo delete " (tackon onlinehelpdest "DFAPrefs.guide.info") " >> DFA:Prefs/installation/U_DFADocs" )
  2186.  
  2187.                     ;
  2188.                     ; Set both help vars to the onlinehelp files
  2189.                     ;
  2190.  
  2191.                 (set editorhelp (tackon onlinehelpdest "DFAEditor.guide"))
  2192.                 (set prefshelp (tackon onlinehelpdest "DFAPrefs.guide"))
  2193.  
  2194.             )
  2195.             (
  2196.                 (if (= oparts 2)
  2197.                     (
  2198.                             ;
  2199.                             ; NO ONLINE help
  2200.                             ;
  2201.  
  2202.                         (message    #msg-noonlinehelp-msg)
  2203.  
  2204.                         (set editorhelp "")
  2205.                         (set prefshelp "")
  2206.  
  2207.                     )
  2208.                 )
  2209.             )
  2210.         )
  2211.     )
  2212. )
  2213.  
  2214. (complete 90)
  2215.  
  2216.     ; **************************
  2217.     ; Install 3rd party software
  2218.     ; **************************
  2219.  
  2220.     ;
  2221.     ; Install OwndevUnit
  2222.     ;
  2223.  
  2224. (set installodu
  2225.     (askbool
  2226.         (prompt    #msg-odu-prompt)
  2227.         (help    #msg-odu-help)
  2228.         (default 0)
  2229.     )
  2230. )
  2231.  
  2232. (if (= installodu 1)
  2233.     (
  2234.         (set odudest
  2235.             (askdir
  2236.                 (prompt #msg-odudest-prompt)
  2237.                 (help    #msg-odudest-help)
  2238.                 (default "Libs:")
  2239.             )
  2240.         )
  2241.  
  2242.         (copylib
  2243.             (prompt #msg-iodu-prompt)
  2244.             (help    @copylib-help)
  2245.             (source "/libs/OwnDevUnit.library")
  2246.             (dest odudest)
  2247.             (confirm)
  2248.             (optional)
  2249.         )
  2250.  
  2251.         (run "echo delete " (tackon odudest "OwnDevUnit.library") " > DFA:Prefs/installation/U_ODULib" )
  2252.         (run "protect DFA:Prefs/installation/U_ODULib s add")
  2253.     )
  2254. )
  2255.  
  2256. (complete 92)
  2257.  
  2258.     ; ******************
  2259.     ; Set some tooltypes
  2260.     ; ******************
  2261.  
  2262.     ;
  2263.     ; Tooltypes for the executables...
  2264.     ;
  2265.  
  2266. (message #msg-tooltypes-msg)
  2267.  
  2268. (tooltype (dest (tackon serverdest "DFA")) (settooltype ("DFAEDITOR") (tackon editordest "DFAEditor")))
  2269. (tooltype (dest (tackon editordest "DFAEditor")) (settooltype ("DFAPREFS") (tackon prefsdest "DFAPrefs")))
  2270. (tooltype (dest (tackon editordest "DFAEditor")) (settooltype ("GUIDEFILE") (editorhelp)))
  2271. (tooltype (dest (tackon prefsdest "DFAPrefs")) (settooltype ("GUIDEFILE") (prefshelp)))
  2272.  
  2273.     ;
  2274.     ; Now reset some icon positions...
  2275.     ;
  2276.  
  2277.     ; for the executables...
  2278.  
  2279. (tooltype (dest (tackon serverdest "DFA")) (noposition))
  2280. (tooltype (dest (tackon editordest "DFAEditor")) (noposition))
  2281. (tooltype (dest (tackon prefsdest "DFAPrefs")) (noposition))
  2282. (tooltype (dest (tackon DFAdir "DFA")) (noposition))
  2283. (tooltype (dest "DFA:C/Registration")  (noposition))
  2284. (tooltype (dest "DFA:C/ClickForColors")  (noposition))
  2285.  
  2286.     ; for the drawers...
  2287.  
  2288. (tooltype (dest (tackon DFAdir "DFA")) (noposition))
  2289. (tooltype (dest "DFA:Rexx") (noposition))
  2290. (tooltype (dest "DFA:C") (noposition))
  2291. (tooltype (dest "DFA:Tools") (noposition))
  2292. (tooltype (dest "DFA:Prefs") (noposition))
  2293. (tooltype (dest "DFA:Libs") (noposition))
  2294. (tooltype (dest "DFA:Documentation") (noposition))
  2295. (tooltype (dest "DFA:AddressFiles") (noposition))
  2296.  
  2297. (complete 100)
  2298.  
  2299. (set EndMsg1 (#msg-end1-msg serverdest))
  2300. (set EndMsg3 (#msg-end2-msg editordest))
  2301. (set EndMsg2 (#msg-end3-msg prefsdest))
  2302.  
  2303. (set @default-dest serverdest)
  2304.  
  2305. (exit EndMsg1 EndMsg2 EndMsg3 #msg-exit-msg)
  2306.